'--------------------------------------------------------
' 执行所有测试用例
'--------------------------------------------------------
Public Sub test_all_case()
    Test_isString
    Test_isNumber
    Test_isInt
    Test_isFloat
End Sub

Private Sub Test_isString()
    Dim result As Boolean

    result = UtilsType.isString("0")
    Debug.Assert result = True

    result = UtilsType.isString(1234.456)
    Debug.Assert result = False
End Sub

Private Sub Test_isNumber()
    Dim result As Boolean

    result = UtilsType.isNumber("0")
    Debug.Assert result = False

    result = UtilsType.isNumber(1234.456)
    Debug.Assert result = True

    result = UtilsType.isNumber(123)
    Debug.Assert result = True
End Sub

Private Sub Test_isInt()
    Dim result As Boolean

    result = UtilsType.isInt("0")
    Debug.Assert result = False

    result = UtilsType.isInt(1234.456)
    Debug.Assert result = False

    result = UtilsType.isInt(123)
    Debug.Assert result = True
End Sub

Private Sub Test_isFloat()
    Dim result As Boolean

    result = UtilsType.isFloat("0")
    Debug.Assert result = False

    result = UtilsType.isFloat(1234.456)
    Debug.Assert result = True

    result = UtilsType.isFloat(123)
    Debug.Assert result = False
End Sub